.DEVICE XGP
.FONT 4 "BASB30"
.FONT 3 "BASI30"
.FONT 2 "BDR30"
.FONT 1 "BDR30"
.EVENLEFTBORDER←ODDLEFTBORDER←1000
.PAGE FRAME 52 HIGH 83 WIDE;
.AREA TEXT LINES 4 TO 50;
.TITLE AREA HEADING LINES 1 TO 3;
.PLACE TEXT;
.EVERY HEADING(,,{PAGE});
.BEGIN NOFILL
.VARIABLE CHW
.CHW ← CHARW
.TURN OFF "βα#\←∞↑↓∪"
.TURN ON "∂{%"
.TURN ON "/" FOR "α"
.AT "∂∂(" CH ")" ⊂ CHARW←CH}∂(2){CHARW←CHW ⊃


∂∂(48)%3samefringe%2[%3x%2, %3y%2] ← %3residue%2[%3x%2, %3y%2] %4eq %2T



∂∂(48)%3residue%2[%3x%2, %3y%2] ← 
∂∂(80)%4if%2 %3x%2 %4eq %3y%2 %4then%2 T
∂∂(80)%4else if%2 %4at %3x%2 %4then%2 [%4if%2 %4at %3y%2 %4then%2 NIL %4else%2 /{%3gopher%2 %3y%2}[λ%3w%2. %4if%2 %3x%2 %4eq a %3w%2 %4then%2 %3'r%2 . %4d %3w%2 %4else%2 NIL]]
∂∂(80)%4else if%2 %4at %3y%2 %4then%2 /{%3gopher%2 %3x%2}[λ%3w%2. %4if%2 %3y%2 %4eq a %3w%2 %4then%2 %3'l%2 . %4d %3w%2 %4else%2 NIL]
∂∂(80)%4else%2 /{%3residue%2[%4a %3x%2, %4a %3y%2]}[λ%3w%2. 
∂∂(112)%4if%2 %4n %3w%2 %4then%2 NIL
∂∂(112)%4else if%2 %3w%2 %4eq %2T %4then%2 %3residue%2[%4d %3x%2, %4d %3y%2]
∂∂(112)%4else if%2 %4a %3w%2 %4eq %3'l%2 %4then%2 %3residue%2[%4d %3w%2 . %4d %3x%2, %4d %3y%2]
∂∂(112)%4else%2 %3residue%2[%4d %3x%2, %4d %3w%2 . %4d %3y%2]]



∂∂(48)%3gopher%2 %3u%2 ← %4if%2 %4at a %3u%2 %4then%2 %3u%2 %4else%2 %3gopher%2 %4aa %3u%2 . [%4da %3u%2 . %4d %3u%2]

.END